home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / testfiles / TestGadget < prev    next >
Encoding:
Text File  |  2004-01-31  |  975 b   |  54 lines
  1. scr <- amigatalk activeScreen
  2.  
  3. win <- Window new: 'Test Boolean Gadget Window:'
  4.  
  5. win setFlags:       16r100F
  6. win setIDCMPFlags:  16r340
  7. win openOnScreen:   scr
  8.  
  9. scr screenToFront
  10.  
  11. "crs <- Colors new: win"
  12.  
  13. "crs  makeColorMap: 16"
  14. "crs  loadColors:   16 from: 'Amigatalk:AmigaTalk.colors'"
  15.  
  16. btxt <- IText new: 'Test Gadget:'
  17.  
  18. width <- (btxt getTextLength) + 30
  19. bdr   <- Rectangle new
  20.  
  21. bdr makeRectangleFrom: 300 @ 80 to: width @ 20
  22.  
  23. btxt setPens:           3 @ 2
  24. btxt setITextOrigin: -125 @ 2
  25.  
  26. bgad <- BoolGadget new
  27.  
  28. bgad setGadgetID:     0
  29. bgad setGadgetText:   btxt
  30. bgad setStartPoint:   300 @ 80
  31. bgad setGadgetSizeTo: width @ 20
  32. bgad setRender:       bdr
  33. bgad setSelect:       bdr
  34.  
  35. win  addGadget: bgad
  36. win  refreshGadgets
  37.  
  38. itxt <- IText new: 'Press the Gadget to end test!'
  39.  
  40. itxt setPens:           5 @ 2
  41. itxt setITextOrigin:  100 @ 120
  42. itxt setDrawMode:     4
  43.  
  44. win  printIText: itxt at: 30 @ 20
  45.  
  46. win  handleIntuition
  47.  
  48. win  close
  49.  
  50. itxt dispose
  51. btxt dispose
  52. bgad dispose
  53.  
  54.